home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / doBundle < prev    next >
Encoding:
Text File  |  1987-03-10  |  986 b   |  36 lines  |  [TEXT/MPS ]
  1. #    This interactively builds an ALRT Rez definition
  2. #    Frank Alviani    Saturday, December 6, 1986 10:32:45 AM
  3.  
  4. set exit 0        #so 'cancel' buttons not fatal
  5.  
  6. "{MPW}macros:getResAttrs" BNDL
  7. set sig "`request 'Signature? (4 chars)'`"
  8. set ver "`request -d 0 'Version Number?'`"
  9. echo "∂'{sig}∂',∂t∂/* signature *∂/"
  10. echo -n "{ver},∂t∂/* version *∂/∂n∂{"
  11. set ct 1
  12. set st 128
  13. loop
  14.     set ty "`request 'Resource type? (4 chars)'`"
  15.     break if ({status} != 0) OR ({ty} == "")
  16.     set ct "`request -d {ct} 'How many?'`"
  17.     set act "`request -d {st} 'Starting actual ID?'`"
  18.         set st {act}    #update default starting #
  19.     set loc 0    #local ID
  20.     echo -n "∂'{ty}∂',∂t∂/* type *∂/∂n ∂{"
  21.     loop
  22.         if {loc} != 0 ; echo -n "," ; end
  23.         echo -n "{loc},{act}"
  24.         set loc `evaluate {loc} + 1`
  25.         set act `evaluate {act} + 1`
  26.         break if {loc} == {ct}
  27.     end
  28.     echo "∂};"
  29. end
  30. replace \;\ "∂n∂}∂};∂n" "{active}"
  31.  
  32. echo "∂ntype ∂'{sig}∂' as ∂'STR ∂';"
  33. echo "resource ∂'{sig}∂' (0) ∂{"
  34. echo '"Skeleton Application - Version 1.0"'
  35. echo "∂};"
  36.